home *** CD-ROM | disk | FTP | other *** search
/ Aminet 8 / Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso / Aminet / comm / bbs / CoolTAStuff.lha / GWCLI.trans < prev    next >
Text File  |  1995-09-04  |  1KB  |  44 lines
  1. /* Just a little extra .trans file for TransAmiga BBS Software
  2.    to run if you're having problems getting the Global War II
  3.    online game to work with TA1.2+ . It's not TA's fault, it's
  4.    just that sometimes it's weird getting CLI/Shell doors to
  5.    work just right....
  6.  
  7.    For more info on TransAmiga, call the official UKHQ, GateWAY
  8.    BBS, on + 44 (0)1375 393816
  9.  
  10. */
  11.  
  12. OPTIONS FAILAT 999          /* Keeps users out of the shell! */
  13. OPTIONS RESULTS
  14.  
  15. CALL PRAGMA('stack',50000)
  16.  
  17. USERINFO A ; name = UPPER(RESULT)
  18. sname=word(name,1)
  19. nname=word(name,2)
  20. SYSTEMINFO M ; time = RESULT
  21. SYSTEMINFO 8 ; line = RESULT
  22. USERINFO o ; access = result
  23. USERINFO v ; plen = result
  24. id=time(s)
  25.  
  26. CLS
  27. transmit "Loading GWII..."
  28.  
  29. SetNodeLocation Name' is playing GWII'
  30.  
  31. path='t:gw-'||sname||nname||'.'line   /* change this to reflect your directory path */
  32.  
  33. OPEN(temp,path,'W')
  34. WRITELN(temp,'FailAt 99999')
  35. WRITELN(temp,'Doors:GlobalWar/GlobalWar '||name||' ACCESS '||access||' PAGELENGTH '||plen||' TIMELEFT '||time||'')
  36. WRITELN(temp,'endcli')
  37. CLOSE(temp)
  38.  
  39. ADDRESS COMMAND 'NewShell FIFO:gw'id'/rwkecs from 'path
  40. ADDRESS COMMAND 'BBS:Bin/TrShell -n'line' -d -e -fds'id 
  41. ADDRESS COMMAND 'Delete 'path' quiet'
  42.  
  43. EXIT 0
  44.